From: Glenn Morris <rgm@gnu.org>
Date: Wed, 22 Aug 2007 03:36:42 +0000 (+0000)
Subject: (rmail-movemail-variant-p): Call on load to set movemail related variables.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~17283
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5c1c6027f714ede99b217603174c8a8a0f029570;p=emacs.git

(rmail-movemail-variant-p): Call on load to set movemail related variables.
(rmail-insert-inbox-text): Use only rmail-movemail-program, which
will now be set before this is called.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 429d85a7fed..0589824d958 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -239,6 +239,12 @@ Currently known variants are 'emacs and 'mailutils."
     (setq rmail-movemail-variant-in-use (rmail-autodetect)))
   (not (null (member rmail-movemail-variant-in-use variants))))
 
+;; Call for effect, to set rmail-movemail-program (if not set by the
+;; user), and rmail-movemail-variant-in-use. Used by various functions.
+;; I'm not sure if M-x rmail is the only entry point to this package.
+;; If so, this can be moved there.
+(rmail-movemail-variant-p)
+
 ;;;###autoload
 (defcustom rmail-dont-reply-to-names nil "\
 *A regexp specifying addresses to prune from a reply message.
@@ -1818,10 +1824,7 @@ is non-nil if the user has supplied the password interactively.
 		 (buffer-disable-undo errors)
 		 (let ((args
 			(append
-			 (list (or rmail-movemail-program
-				   (expand-file-name "movemail"
-						     exec-directory))
-			       nil errors nil)
+			 (list rmail-movemail-program nil errors nil)
 			 (if rmail-preserve-inbox
 			     (list "-p")
 			   nil)